home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 10.p (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 10 ifi=0theni=1:load"wortschatz",8,1
  2. 20 dim be$(25)
  3. 30 dimin(26):fori=1to26:readin(i):nexti
  4. 40 data40960,41006,0,41581,41650
  5. 50 data42018,42110,42317,42501,0
  6. 60 data42547,42685,0,42823,43007
  7. 70 data43076,43237,43260,43605,44364
  8. 80 data44502,44571,45031,0,0,45284
  9. 100 rem modifizierte peek-funktion ---------------------------------------------
  10. 101 :
  11. 110 data32,247,183,120,169,52,133,1
  12. 120 data160,0,177,20,168,169,55,133
  13. 130 data1,88,76,162,179
  14. 140 fori=704to724:readx:pokei,x:s=s+x:nexti
  15. 150 poke785,192:poke786,2:rem usr-zeiger
  16. 160 ifs<>2325thenprint"fehler in datas[160]!":end
  17. 200 gosub50000
  18. 210 print"ve="ve:print"o1="o1:print"o2="o2:print"ad="ad:print"ri="ri
  19. 230 goto200
  20. 50000 rem *************************
  21. 50001 rem *                       *
  22. 50002 rem *    wort-parser 5.0    *
  23. 50003 rem *                       *
  24. 50004 rem *     <c> 1986 bei      *
  25. 50005 rem *                       *
  26. 50006 rem *    michael nickles    *
  27. 50007 rem *                       *
  28. 50008 rem *************************
  29. 50010 rem befehlseingabe -------------------------------------------------------
  30. 50011 :
  31. 50015 j1=1:j2=10:j3=198:j4=54276:j5=54277:j6=203:j7=3000:j8=2:j9=20:j0=54273
  32. 50016 k1=54272:k2=89:k3=129:k4=47:k5=57:k6=65:k7=90:k8=32:k9=34:k0=44
  33. 50017 print
  34. 50019 poke54296,15:rem und abfragen
  35. 50020 tt=.: rem input-interrupt-zaehler
  36. 50030 fori=j1toj2:be$(i)="":next:pokej3,.:be$="": rem satz loeschen
  37. 50040 print"[158]>";:print"[164]";
  38. 50050 pokej4,.:pokej5,.:getx$:ii=peek(j6):iftt<j7then50060:rem tt=tt+1 !!!!
  39. 50055 fori=1tolen(be$)+j8:printchr$(j9);:next:ve=0:return
  40. 50060 ifx$=""then50050
  41. 50061 pokej5,j1:pokej0,j2:pokek1,k2:pokej4,k3
  42. 50070 tt=0
  43. 50080 ifii=1thenifbe$<>""thenprint"[157].":goto50200
  44. 50085 i=asc(x$):ifi>k4andi<k5then50100
  45. 50090 i=asc(x$):ifi<k6ori>k7thenifi<>k8andi<>j9andi<>k9andi<>k0then50050
  46. 50100 ifi=j9andlen(be$)=.then50050
  47. 50110 ifi=j9thenprint"[157][157]  [157][157][164]";:be$=left$(be$,len(be$)-j1):goto50050
  48. 50120 be$=be$+chr$(i):iflen(be$)>78thenbe$=left$(be$,78):goto50050
  49. 50125 ifi=k9theni=64
  50. 50130 print"[157]";chr$(i);"[164]";:goto50050
  51. 50200 rem codierung ------------------------------------------------------------
  52. 50201 :
  53. 50250 rem wort im ram suchen *******
  54. 50254 i$=be$
  55. 50255 im=asc(left$(i$,1)):i=in(im-64)
  56. 50262 rem begin loop           <<<
  57. 50264 :if im<>usr(i)then 50280
  58. 50265 :fori1=1tolen(i$):printmid$(i$,i1,1),chr$(usr(i+i1-1))
  59. 50270 : ifasc(mid$(i$,i1,1))<>usr(i+i1-1)theni1=len(i$):goto50276
  60. 50273 : ifi1=len(i$)andusr(i+21)=3thenob=usr(i+22):om=ob:print"objekt="ob:end
  61. 50274 : ifi1=len(i$)andusr(i+21)=2thenri=usr(i+22):print"richtung="ri:end
  62. 50275 : ifi1=len(i$)andusr(i+21)=1thenve=usr(i+22):print"verb="ve:end
  63. 50276 :nexti1
  64. 50278 i=i+23:goto50264
  65. 50280 rem end loop             <<<
  66. 50290 print"ich kenne das wort "be$" nicht !":end
  67.